home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / Object Plant 1.4 / Object Plant / Object Plant.rsrc / TEXT_128_EPS prep.txt < prev    next >
Encoding:
Text File  |  1997-08-10  |  51.3 KB  |  2,005 lines
  1. %%DocumentFonts: Helvetica 
  2. %%DocumentNeededFonts: Helvetica 
  3. %%IncludeFont: Helvetica 
  4. /RE
  5. {
  6.     findfont begin
  7.     currentdict dup length dict begin
  8.     {
  9.         1 index /FID ne {def}{pop pop}ifelse
  10.     }forall
  11.     /FontName exch def dup length 0 ne
  12.     {
  13.         /Encoding Encoding 256 array copy def
  14.         0 exch
  15.         {
  16.             dup type /nametype eq
  17.             {
  18.                 Encoding 2 index 2 index put
  19.                 pop 1 add
  20.             }
  21.             {
  22.                 exch pop
  23.             }ifelse
  24.         }forall
  25.     }if pop
  26.     currentdict dup end end
  27.     /FontName get exch definefont pop
  28. } bind def
  29.  
  30. /stdencoding [
  31. 39/quotesingle 96/grave 128/Adieresis/Aring/Ccedilla/Eacute/Ntilde/Odieresis
  32. /Udieresis/aacute/agrave/acircumflex/adieresis/atilde/aring/ccedilla/eacute
  33. /egrave/ecircumflex/edieresis/iacute/igrave/icircumflex/idieresis/ntilde
  34. /oacute/ograve/ocircumflex/odieresis/otilde/uacute/ugrave/ucircumflex
  35. /udieresis/dagger/degree/cent/sterling/section/bullet/paragraph/germandbls
  36. /registered/copyright/trademark/acute/dieresis/.notdef/AE/Oslash
  37. /.notdef/plusminus/.notdef/.notdef/yen/mu/.notdef/.notdef
  38. /.notdef/.notdef/.notdef/ordfeminine/ordmasculine/.notdef/ae/oslash
  39. /questiondown/exclamdown/logicalnot/.notdef/florin/.notdef/.notdef
  40. /guillemotleft/guillemotright/ellipsis/.notdef/Agrave/Atilde/Otilde/OE/oe
  41. /endash/emdash/quotedblleft/quotedblright/quoteleft/quoteright/divide
  42. /.notdef/ydieresis/Ydieresis/fraction/currency/guilsinglleft/guilsinglright
  43. /fi/fl/daggerdbl/periodcentered/quotesinglbase/quotedblbase/perthousand
  44. /Acircumflex/Ecircumflex/Aacute/Edieresis/Egrave/Iacute/Icircumflex
  45. /Idieresis/Igrave/Oacute/Ocircumflex/.notdef/Ograve/Uacute/Ucircumflex
  46. /Ugrave/dotlessi/circumflex/tilde/macron/breve/dotaccent/ring/cedilla
  47. /hungarumlaut/ogonek/caron
  48. ] def
  49. stdencoding /_Helvetica /Helvetica RE
  50. stdencoding /_Helvetica-Oblique /Helvetica-Oblique RE
  51. stdencoding /_Helvetica-Bold /Helvetica-Bold RE
  52. stdencoding /_Helvetica-BoldOblique /Helvetica-BoldOblique RE
  53.  
  54. /Monaco10 /_Helvetica findfont 10 scalefont def
  55. /MonacoI10 /_Helvetica-Oblique findfont 10 scalefont def
  56. /MonacoB10 /_Helvetica-Bold findfont 10 scalefont def
  57. /MonacoBI10 /_Helvetica-BoldOblique findfont 10 scalefont def
  58. /Monaco9 /_Helvetica findfont 9 scalefont def
  59. /MonacoI9 /_Helvetica-Oblique findfont 9 scalefont def
  60.  
  61. /defaultHeight 30 def /ifDefaultHeight 40 def /defaultWidth 60 def
  62. /pointSize 3 def /diamondWidth 8 def /pyramidWidth 18 def
  63. /eventBoxWidth 9 def
  64.  
  65. /drawClassBox    % oper1 ... opern noOfOpers attr1 ... attrn noOfAttrs name abstract nested
  66. {
  67.     50 dict begin
  68.     /nested exch def /abstract exch def
  69.     /name exch def
  70.  
  71.     false abstract eq { MonacoB10 setfont }{ MonacoBI10 setfont } ifelse
  72.  
  73.     /maxwidth name stringwidth pop def
  74.     /boxwidth defaultWidth def
  75.  
  76.     /noOfAttr exch def /AttrArray noOfAttr array def /index noOfAttr 1 sub def {
  77.         index -1 eq { exit } if
  78.         AttrArray index 3 -1 roll put
  79.         /index index 1 sub def
  80.     } loop
  81.  
  82.     /noOfOper exch def /OperArray noOfOper array def /index noOfOper 1 sub def {
  83.         index -1 eq { exit } if
  84.         OperArray index 3 -1 roll put
  85.         /index index 1 sub def
  86.     } loop
  87.  
  88.     % Set font size for attributes an operations while checking boxwidth
  89.     false abstract eq { Monaco9 setfont }{ MonacoI9 setfont } ifelse
  90.     /leftmargin currentpoint pop def /topmargin currentpoint exch pop def
  91.     AttrArray {
  92.         stringwidth pop 8 add dup
  93.         maxwidth gt { /maxwidth exch def }{ pop } ifelse
  94.     } forall
  95.     OperArray {
  96.         stringwidth pop 8 add dup
  97.         maxwidth gt { /maxwidth exch def }{ pop } ifelse
  98.     } forall
  99.  
  100.     % Set back font size for the class name
  101.     false abstract eq { MonacoB10 setfont }{ MonacoBI10 setfont } ifelse
  102.     maxwidth boxwidth 6 sub gt { /boxwidth maxwidth 6 add def } if
  103.     noOfAttr 0 ne { /boxheight noOfAttr 12 mul 26 add def } if
  104.     noOfOper 0 ne { noOfAttr 0 ne { /boxheight boxheight 6 add noOfOper 12 mul add def }
  105.                                     { /boxheight noOfOper 12 mul 26 add def } ifelse } if
  106.     noOfOper 0 eq { noOfAttr 0 eq { /boxheight defaultHeight def } if } if
  107.     boxheight defaultHeight lt { /boxheight defaultHeight def } if
  108.     nested true eq { [3] 0 setdash } if
  109.     currentpoint boxwidth 0 rlineto
  110.     0 boxheight neg rlineto
  111.     boxwidth neg 0 rlineto closepath gsave 1 setgray fill grestore stroke
  112.     nested true eq { [] 0 setdash } if
  113.  
  114.     noOfAttr 0 ne { leftmargin topmargin -18 add moveto boxwidth 0 rlineto stroke } if
  115.  
  116.     noOfOper 0 ne
  117.     {
  118.         newpath noOfAttr 0 ne { leftmargin topmargin -24 add noOfAttr -12 mul add moveto }
  119.                                     { leftmargin topmargin -20 add moveto }ifelse
  120.         boxwidth 0 rlineto stroke
  121.     }if
  122.     moveto currentpoint
  123.     boxwidth name stringwidth pop sub 2 div -14 rmoveto name show
  124.  
  125.     false abstract eq { Monaco9 setfont }{ MonacoI9 setfont } ifelse
  126.     currentpoint /index 0 def
  127.     AttrArray
  128.     { 
  129.         leftmargin 8 add topmargin moveto
  130.         0 -12 index mul -30 add rmoveto show
  131.         /index index 1 add def
  132.     } forall
  133.     moveto currentpoint /index 0 def
  134.     OperArray
  135.     {
  136.         leftmargin 8 add topmargin moveto
  137.         noOfAttr 0 ne { 0 -12 index mul noOfAttr -12 mul add 38 sub rmoveto }
  138.         { 0 -12 index mul 32 sub rmoveto }ifelse show
  139.          /index index 1 add def
  140.     } forall
  141.     leftmargin boxwidth add topmargin boxheight sub
  142.     end
  143. } def
  144. /drawInterfaceBox    % oper1 ... opern noOfOpers attr1 ... attrn noOfAttrs name drawInterfaceBox
  145. {
  146.     50 dict begin
  147.     /name exch def
  148.  
  149.     MonacoB10 setfont
  150.  
  151.     /maxwidth name stringwidth pop def
  152.     /boxwidth defaultWidth def
  153.  
  154.     /noOfAttr exch def /AttrArray noOfAttr array def /index noOfAttr 1 sub def {
  155.         index -1 eq { exit } if
  156.         AttrArray index 3 -1 roll put
  157.         /index index 1 sub def
  158.     } loop
  159.  
  160.     /noOfOper exch def /OperArray noOfOper array def /index noOfOper 1 sub def {
  161.         index -1 eq { exit } if
  162.         OperArray index 3 -1 roll put
  163.         /index index 1 sub def
  164.     } loop
  165.  
  166.     % Set font size for attributes an operations while checking boxwidth
  167.     Monaco9 setfont
  168.     /leftmargin currentpoint pop def /topmargin currentpoint exch pop def
  169.     AttrArray {
  170.         stringwidth pop 8 add dup
  171.         maxwidth gt { /maxwidth exch def }{ pop } ifelse
  172.     } forall
  173.     OperArray {
  174.         stringwidth pop 8 add dup
  175.         maxwidth gt { /maxwidth exch def }{ pop } ifelse
  176.     } forall
  177.  
  178.     MonacoB10 setfont
  179.     maxwidth boxwidth 6 sub gt { /boxwidth maxwidth 6 add def } if
  180.     noOfAttr 0 ne { /boxheight noOfAttr 12 mul 36 add def } if
  181.     noOfOper 0 ne { noOfAttr 0 ne { /boxheight boxheight 6 add noOfOper 12 mul add def }
  182.                                     { /boxheight noOfOper 12 mul 36 add def } ifelse } if
  183.     noOfOper 0 eq { noOfAttr 0 eq { /boxheight ifDefaultHeight def } if } if
  184.     boxheight ifDefaultHeight lt { /boxheight ifDefaultHeight def } if
  185.     currentpoint boxwidth 0 rlineto
  186.     0 boxheight  neg  rlineto
  187.     boxwidth neg 0 rlineto closepath gsave 1 setgray fill grestore stroke
  188.  
  189.     noOfAttr 0 ne { leftmargin topmargin -28 add moveto boxwidth 0 rlineto stroke } if
  190.  
  191.     noOfOper 0 ne
  192.     {
  193.         newpath noOfAttr 0 ne { leftmargin topmargin -34 add noOfAttr -12 mul add moveto }
  194.                                     { leftmargin topmargin -28 add moveto }ifelse
  195.         boxwidth 0 rlineto stroke
  196.     }if
  197.     moveto currentpoint
  198.     boxwidth name stringwidth pop sub 2 div -24 rmoveto name show
  199.     leftmargin topmargin moveto
  200.     boxwidth (¬´interface¬ª) stringwidth pop sub 2 div -14 rmoveto (¬´interface¬ª) show
  201.  
  202.     Monaco9 setfont
  203.     currentpoint /index 0 def
  204.     AttrArray
  205.     { 
  206.         leftmargin 8 add topmargin 10 sub moveto
  207.         0 -12 index mul -30 add rmoveto show
  208.         /index index 1 add def
  209.     } forall
  210.     moveto currentpoint /index 0 def
  211.     OperArray
  212.     {
  213.         leftmargin 8 add topmargin 10 sub moveto
  214.         noOfAttr 0 ne { 0 -12 index mul noOfAttr -12 mul add 38 sub rmoveto }
  215.         { 0 -12 index mul 32 sub rmoveto }ifelse show
  216.          /index index 1 add def
  217.     } forall
  218.     leftmargin boxwidth add topmargin boxheight sub
  219.     end
  220. } def
  221.  
  222. /drawAssoc    % pointn ... point1 noOfPoints branchRole branchMultText branchMult branchQualPos branchQual baseRole baseMultText baseMult baseQualPos baseQual name
  223. {
  224.     50 dict begin
  225.     Monaco9 setfont
  226.  
  227.     /name exch def /baseQual exch def /baseQualPos exch def /baseMult exch def /baseMultText exch def /baseRole exch def
  228.     /branchQual exch def /branchQualPos exch def /branchMult exch def /branchMultText exch def /branchRole exch def
  229.     /noOfPoints exch def /pntArray noOfPoints 2 mul array def /index 0 def
  230.     {
  231.         index noOfPoints 2 mul eq { exit } if
  232.         pntArray index 3 -1 roll put
  233.         /index index 1 add def
  234.     } loop
  235.  
  236. % Get the base qualifier's position
  237.     
  238.     /baseQualTW baseQual stringwidth pop def
  239.     /p1.h pntArray noOfPoints 1 sub 2 mul 1 add get def
  240.     /p1.v pntArray noOfPoints 1 sub 2 mul get def
  241.     /connect.h p1.h def
  242.     /connect.v p1.v def
  243.     baseQualPos 1 eq
  244.     {    % to the left of the first point
  245.         baseMult 1 eq {
  246.             /connect.h connect.h pointSize 2 div 2 add add def
  247.         } if
  248.         baseMult 2 eq {
  249.             /connect.h connect.h pointSize 2 div 2 add add def
  250.         } if
  251.     } if
  252.     baseQualPos 2 eq
  253.     {    % above the first point
  254.         baseMult 1 eq {
  255.             /connect.v connect.v pointSize 2 div 2 add sub def
  256.         } if
  257.         baseMult 2 eq {
  258.             /connect.v connect.v pointSize 2 div 2 add sub def
  259.         } if
  260.     } if
  261.     baseQualPos 3 eq
  262.     {    % to the right of the first point
  263.         baseMult 1 eq {
  264.             /connect.h connect.h pointSize 2 div 2 add sub def
  265.         } if
  266.         baseMult 2 eq {
  267.             /connect.h connect.h pointSize 2 div 2 add sub def
  268.         } if
  269.     } if
  270.     baseQualPos 4 eq
  271.     {    % below the first point
  272.         baseMult 1 eq {
  273.             /connect.v connect.v pointSize 2 div 2 add add def
  274.         } if
  275.         baseMult 2 eq {
  276.             /connect.v connect.v pointSize 2 div 2 add add def
  277.         } if
  278.     } if
  279.     baseQualPos 1 eq
  280.     {    % to the left of the first point
  281.         /p1.h connect.h baseQualTW 5 add sub def
  282.         /p1.v connect.v 3 sub def 
  283.     } if
  284.     baseQualPos 2 eq
  285.     {    % above the first point
  286.         /p1.h connect.h baseQualTW 2 div sub def
  287.         /p1.v connect.v 4 add def 
  288.     } if
  289.     baseQualPos 3 eq
  290.     {    % to the right of the first point
  291.         /p1.h connect.h 6 add def
  292.         /p1.v connect.v 3 sub def 
  293.     } if
  294.     baseQualPos 4 eq
  295.     {    % below the first point
  296.         /p1.h connect.h baseQualTW 2 div sub def
  297.         /p1.v connect.v 10 sub def
  298.     } if
  299.     /baseQualText.h p1.h def
  300.     /baseQualText.v p1.v def
  301.  
  302.     /lineConnect.h connect.h def
  303.     /lineConnect.v connect.v def
  304.  
  305. % Determine the qualifiers rectangle size
  306.     baseQualTW 0 ne
  307.     {
  308.         baseQualPos 1 eq
  309.         {    % to the left of the first class
  310.             /RectRight connect.h def
  311.             /RectLeft baseQualText.h 5 sub def
  312.             /lineConnect.h RectLeft def
  313.             /RectTop baseQualText.v 12 add def
  314.             /RectBottom RectTop 16 sub def
  315.         } if
  316.         baseQualPos 3 eq
  317.         {    % to the right of the first class
  318.             /RectLeft connect.h def
  319.             /RectRight baseQualText.h baseQualTW 5 add add def
  320.             /lineConnect.h RectRight def
  321.             /RectTop baseQualText.v 12 add def
  322.             /RectBottom RectTop 16 sub def
  323.         } if
  324.         baseQualPos 2 eq
  325.         {    % above the first point
  326.             /RectBottom connect.v def
  327.             /RectTop RectBottom 16 add def
  328.             /lineConnect.v RectTop def
  329.             /RectLeft baseQualText.h 4 sub def
  330.             /RectRight RectLeft baseQualTW 9 add add def
  331.         } if
  332.         baseQualPos 4 eq
  333.         {    % below the first point
  334.             /RectTop connect.v def
  335.             /RectBottom RectTop 16 sub def
  336.             /lineConnect.v RectBottom def
  337.             /RectLeft baseQualText.h 4 sub def
  338.             /RectRight RectLeft baseQualTW add 9 add def
  339.         } if
  340.         RectLeft RectTop moveto
  341.         RectRight RectTop lineto
  342.         RectRight RectBottom lineto
  343.         RectLeft RectBottom lineto
  344.         closepath stroke
  345.         newpath
  346.         baseQualText.h baseQualText.v moveto
  347.         baseQual show
  348.     } if
  349.  
  350.     newpath 1 setlinewidth 0 setgray
  351.     /index 0 def
  352.     {
  353.         index noOfPoints eq { exit } if
  354.         pntArray index 2 mul 1 add get pntArray index 2 mul get
  355.         index noOfPoints 1 sub eq { pop pop lineConnect.h lineConnect.v } if
  356.         index 0 eq { moveto }{ lineto } ifelse
  357.         /index index 1 add def
  358.     } loop
  359.     stroke
  360.     /circle.h pntArray noOfPoints 1 sub 2 mul 1 add get def
  361.     /circle.v pntArray noOfPoints 1 sub 2 mul get def
  362.     baseQualTW 0 ne
  363.     {
  364.         baseQualPos 1 eq
  365.         {    % to the left of the first class
  366.             /circle.h circle.h baseQualTW 9 add sub def
  367.         } if
  368.         baseQualPos 3 eq
  369.         {    % to the right of the first class
  370.             /circle.h circle.h baseQualTW 11 add add def
  371.         } if
  372.         baseQualPos 2 eq
  373.         {    % above the first point
  374.             /circle.v circle.v 16 add def
  375.         } if
  376.         baseQualPos 4 eq
  377.         {    % below the first point
  378.             /circle.v circle.v 16 sub def
  379.         } if
  380.     } if
  381.     circle.h circle.v
  382.     baseMult 1 eq {
  383.         % hollow circle
  384.         pointSize 0.5 sub 0 360 arc stroke
  385.         circle.h circle.v
  386.         pointSize 1 sub 0 360 arc 1 setgray fill
  387.     } if
  388.     baseMult 2 eq {
  389.         % filled circle
  390.         pointSize 0.5 sub 0 360 arc gsave stroke grestore 0 setgray fill
  391.     } if
  392.  
  393.     0 setgray /p1.h pntArray noOfPoints 1 sub 2 mul 1 add get def
  394.     /p1.v pntArray noOfPoints 1 sub 2 mul get def
  395.     /p2.h pntArray noOfPoints 2 sub 2 mul 1 add get def
  396.     /p2.v pntArray noOfPoints 2 sub 2 mul get def
  397.     /roletextwidth baseRole stringwidth pop def
  398.  
  399.     p1.h p2.h eq
  400.     { p1.v p2.v le
  401.         { p1.h 5 add p1.v 4 add baseQualTW 0 ne { 14 add } if }
  402.         { p1.h 5 add p1.v 10 sub baseQualTW 0 ne { 14 sub } if } ifelse
  403.     }
  404.     { p1.v p2.v eq
  405.         { p1.h p2.h gt
  406.                 { p1.h roletextwidth 5 add sub baseQualTW 0 ne { baseQualTW 9 add sub } if p1.v 10 sub }
  407.                 { p1.h 6 add baseQualTW 0 ne { baseQualTW 7 add add } if p1.v 10 sub } ifelse
  408.         }
  409.         {    p1.v p2.v le
  410.             {    p1.h p2.h gt
  411.                 { p1.h roletextwidth 5 add sub p1.v 4 add baseQualTW 0 ne { 14 add } if }
  412.                 { p1.h 6 add p1.v 4 add baseQualTW 0 ne { 14 add } if } ifelse
  413.             }
  414.             {    p1.h p2.h gt
  415.                 { p1.h roletextwidth 5 add sub p1.v 10 sub baseQualTW 0 ne { 14 sub } if }
  416.                 { p1.h 6 add p1.v 10 sub baseQualTW 0 ne { 14 sub } if } ifelse
  417.             } ifelse
  418.         } ifelse
  419.     } ifelse
  420.     moveto baseRole show
  421.     /p1.h pntArray noOfPoints 1 sub 2 mul 1 add get def
  422.     /p1.v pntArray noOfPoints 1 sub 2 mul get def
  423.     /p2.h pntArray noOfPoints 2 sub 2 mul 1 add get def
  424.     /p2.v pntArray noOfPoints 2 sub 2 mul get def
  425.     /multtextwidth baseMultText stringwidth pop def
  426.  
  427.     p1.h p2.h eq
  428.     { p1.v p2.v le
  429.             {    p1.h multtextwidth 5 add sub p1.v 4 add baseQualTW 0 ne { 14 add } if }
  430.             {    p1.h multtextwidth 5 add sub p1.v 10 sub baseQualTW 0 ne { 14 sub } if } ifelse
  431.     }
  432.     { p1.v p2.v eq
  433.             { p1.h p2.h gt
  434.                     { p1.h multtextwidth 5 add sub baseQualTW 0 ne { baseQualTW 9 add sub } if p1.v 4 add }
  435.                     { p1.h 5 add baseQualTW 0 ne { baseQualTW 7 add add } if p1.v 4 add } ifelse
  436.             }
  437.             { p1.v p2.v le
  438.                     { p1.h p2.h gt
  439.                             { p1.h multtextwidth 5 add sub p1.v 4 add baseQualTW 0 ne { 14 add } if }
  440.                             { p1.h 5 add p1.v 4 add baseQualTW 0 ne { 14 add } if } ifelse
  441.                     }
  442.                     { p1.h p2.h gt
  443.                             { p1.h multtextwidth 5 add sub p1.v 10 sub baseQualTW 0 ne { 14 sub } if }
  444.                             { p1.h 5 add p1.v 10 sub baseQualTW 0 ne { 14 sub } if } ifelse
  445.                     } ifelse
  446.             } ifelse
  447.     } ifelse
  448.     moveto
  449.     baseMult 3 eq {
  450.         baseMultText show
  451.     } if
  452.  
  453.     newpath
  454.     % Get the branch qualifier's position
  455.  
  456.     /branchQualTW branchQual stringwidth pop def
  457.     /p1.h pntArray 1 get def
  458.     /p1.v pntArray 0 get def
  459.     /connect.h p1.h def
  460.     /connect.v p1.v def
  461.     branchQualPos 1 eq
  462.     {    % to the left of the first point
  463.         branchMult 1 eq {
  464.             /connect.h connect.h pointSize 2 div 2 add add def
  465.         } if
  466.         branchMult 2 eq {
  467.             /connect.h connect.h pointSize 2 div 2 add add def
  468.         } if
  469.         /p1.h connect.h branchQualTW 5 add sub def
  470.         /p1.v connect.v 3 sub def 
  471.     } if
  472.     branchQualPos 2 eq
  473.     {    % above the first point
  474.         branchMult 1 eq {
  475.             /connect.v connect.v pointSize 2 div 2 add sub def
  476.         } if
  477.         branchMult 2 eq {
  478.             /connect.v connect.v pointSize 2 div 2 add sub def
  479.         } if
  480.         /p1.h connect.h branchQualTW 2 div sub def
  481.         /p1.v connect.v 4 add def 
  482.     } if
  483.     branchQualPos 3 eq
  484.     {    % to the right of the first point
  485.         branchMult 1 eq {
  486.             /connect.h connect.h pointSize 2 div 2 add sub def
  487.         } if
  488.         branchMult 2 eq {
  489.             /connect.h connect.h pointSize 2 div 2 add sub def
  490.         } if
  491.         /p1.h connect.h 6 add def
  492.         /p1.v connect.v 3 sub def 
  493.     } if
  494.     branchQualPos 4 eq
  495.     {    % below the first point
  496.         branchMult 1 eq {
  497.             /connect.v connect.v pointSize 2 div 2 add add def
  498.         } if
  499.         branchMult 2 eq {
  500.             /connect.v connect.v pointSize 2 div 2 add add def
  501.         } if
  502.         /p1.h connect.h branchQualTW 2 div sub def
  503.         /p1.v connect.v 10 sub def
  504.     } if
  505.     /branchQualText.h p1.h def
  506.     /branchQualText.v p1.v def
  507.  
  508.     /lineConnect.h connect.h def
  509.     /lineConnect.v connect.v def
  510.  
  511. % Determine the qualifiers rectangle size
  512.     branchQualTW 0 ne
  513.     {
  514.         branchQualPos 1 eq
  515.         {    % to the left of the first class
  516.             /RectRight connect.h def
  517.             /RectLeft branchQualText.h 5 sub def
  518.             /lineConnect.h RectLeft def
  519.             /RectTop branchQualText.v 12 add def
  520.             /RectBottom RectTop 16 sub def
  521.         } if
  522.         branchQualPos 3 eq
  523.         {    % to the right of the first class
  524.             /RectLeft connect.h def
  525.             /RectRight branchQualText.h branchQualTW 5 add add def
  526.             /lineConnect.h RectRight def
  527.             /RectTop branchQualText.v 12 add def
  528.             /RectBottom RectTop 16 sub def
  529.         } if
  530.         branchQualPos 2 eq
  531.         {    % above the first point
  532.             /RectBottom connect.v def
  533.             /RectTop RectBottom 16 add def
  534.             /lineConnect.v RectTop def
  535.             /RectLeft branchQualText.h 4 sub def
  536.             /RectRight RectLeft branchQualTW 9 add add def
  537.         } if
  538.         branchQualPos 4 eq
  539.         {    % below the first point
  540.             /RectTop connect.v def
  541.             /RectBottom RectTop 16 sub def
  542.             /lineConnect.v RectBottom def
  543.             /RectLeft branchQualText.h 4 sub def
  544.             /RectRight RectLeft branchQualTW add 9 add def
  545.         } if
  546.         RectLeft RectTop moveto
  547.         RectRight RectTop lineto
  548.         RectRight RectBottom lineto
  549.         RectLeft RectBottom lineto
  550.         closepath gsave 1 setgray fill grestore stroke
  551.         newpath
  552.         branchQualText.h branchQualText.v moveto
  553.         branchQual show
  554.     } if
  555.     newpath
  556.     0 setgray
  557.     /circle.h pntArray 1 get def
  558.     /circle.v pntArray 0 get def
  559.     branchQualTW 0 ne
  560.     {
  561.         branchQualPos 1 eq
  562.         {    % to the left of the first class
  563.             /circle.h circle.h branchQualTW 9 add sub def
  564.         } if
  565.         branchQualPos 3 eq
  566.         {    % to the right of the first class
  567.             /circle.h circle.h branchQualTW 11 add add def
  568.         } if
  569.         branchQualPos 2 eq
  570.         {    % above the first point
  571.             /circle.v circle.v 16 add def
  572.         } if
  573.         branchQualPos 4 eq
  574.         {    % below the first point
  575.             /circle.v circle.v 16 sub def
  576.         } if
  577.     } if
  578.     circle.h circle.v
  579.     branchMult 1 eq {
  580.         % hollow circle
  581.         pointSize 0.5 sub 0 360 arc stroke
  582.         circle.h circle.v
  583.         pointSize 1 sub 0 360 arc 1 setgray fill
  584.     } if
  585.     branchMult 2 eq {
  586.         % filled circle
  587.         pointSize 0.5 sub 0 360 arc gsave stroke grestore 0 setgray fill
  588.     } if
  589.  
  590.     0 setgray
  591.     /p1.h pntArray 1 get def
  592.     /p1.v pntArray 0 get def
  593.     /p2.h pntArray 3 get def
  594.     /p2.v pntArray 2 get def
  595.     /roletextwidth branchRole stringwidth pop def
  596.  
  597.     p1.h p2.h eq
  598.     {    p1.v p2.v le
  599.         { p1.h 5 add p1.v 4 add branchQualTW 0 ne { 14 add } if }
  600.         { p1.h 5 add p1.v 10 sub branchQualTW 0 ne { 14 sub } if } ifelse
  601.     }
  602.     { p1.v p2.v eq
  603.         {    p1.h p2.h gt
  604.             { p1.h roletextwidth 5 add sub branchQualTW 0 ne { branchQualTW 9 add sub } if p1.v 10 sub }
  605.             { p1.h 5 add branchQualTW 0 ne { branchQualTW 7 add add } if p1.v 10 sub } ifelse
  606.         }
  607.         {    p1.v p2.v le
  608.             {    p1.h p2.h gt
  609.                 {    p1.h roletextwidth 5 add sub p1.v 4 add branchQualTW 0 ne { 14 add } if }
  610.                 {    p1.h 5 add p1.v 4 add branchQualTW 0 ne { 14 add } if } ifelse
  611.             }
  612.             {    p1.h p2.h gt
  613.                 {    p1.h roletextwidth 5 add add p1.v 0 sub branchQualTW 0 ne { 14 sub } if }
  614.                 {    p1.h 5 add p1.v 10 sub branchQualTW 0 ne { 14 sub } if } ifelse
  615.             } ifelse
  616.         } ifelse
  617.     } ifelse
  618.     moveto branchRole show
  619.     /p1.h pntArray 1 get def
  620.     /p1.v pntArray 0 get def
  621.     /p2.h pntArray 3 get def
  622.     /p2.v pntArray 2 get def
  623.     /multtextwidth branchMultText stringwidth pop def
  624.  
  625.     p1.h p2.h eq
  626.     { p1.v p2.v le
  627.         {    p1.h multtextwidth 5 add sub p1.v 4 add branchQualTW 0 ne { 14 add } if }
  628.         {    p1.h multtextwidth 5 add sub p1.v 10 sub branchQualTW 0 ne { 14 sub } if } ifelse
  629.      }
  630.      { p1.v p2.v eq
  631.             { p1.h p2.h gt
  632.                     { p1.h multtextwidth 5 add sub branchQualTW 0 ne { branchQualTW 9 add sub } if p1.v     4 add }
  633.                     { p1.h 5 add branchQualTW 0 ne { branchQualTW 7 add add } if p1.v 4 add } ifelse
  634.             }
  635.             { p1.v p2.v le
  636.                     { p1.h p2.h gt
  637.                             { p1.h multtextwidth 5 add sub p1.v 4 add branchQualTW 0 ne { 14 add } if }
  638.                             { p1.h 5 add p1.v 4 add branchQualTW 0 ne { 14 add } if } ifelse
  639.                     }
  640.                     { p1.h p2.h gt
  641.                             { p1.h multtextwidth 5 add sub p1.v 10 sub branchQualTW 0 ne { 14 sub } if }
  642.                             { p1.h 5 add p1.v 10 sub branchQualTW 0 ne { 14 sub } if } ifelse
  643.                     } ifelse
  644.             } ifelse
  645.     } ifelse
  646.     moveto
  647.     branchMult 3 eq {
  648.         branchMultText show
  649.     }if
  650.     end
  651. } def
  652.  
  653. /drawAggr    % [ pointn ... point1 noOfPoints branchRole branchMultText branchMult ] noOfBranches pointn ... point1 noOfPoints baseRole baseMultText baseMult qualPos qualifier name byvalue diamondx diamondy
  654. {
  655.     70 dict begin
  656.     Monaco9 setfont
  657.  
  658.     /diay exch def
  659.     /diax exch def
  660.     /byvalue exch def
  661.     /name exch def /qualifier exch def /qualPos exch def /baseMult exch def /baseMultText exch def 
  662.     /baseRole exch def
  663.     /noOfStemPoints exch def
  664.     /stemArray noOfStemPoints 2 mul array def
  665.     /index 0 def
  666.     {
  667.         index noOfStemPoints 2 mul eq { exit } if
  668.         stemArray index 3 -1 roll put
  669.         /index index 1 add def
  670.     } loop
  671.  
  672. % Get the qualifier's position
  673.     
  674.     /qualTW qualifier stringwidth pop def
  675.     /p1.h stemArray noOfStemPoints 1 sub 2 mul 1 add get def
  676.     /p1.v stemArray noOfStemPoints 1 sub 2 mul get def
  677.     /connect.h p1.h def
  678.     /connect.v p1.v def
  679.     qualPos 1 eq
  680.     {    % to the left of the first point
  681.         /connect.h connect.h diamondWidth 0.5 add add def
  682.         /p1.h connect.h qualTW 5 add sub def
  683.         /p1.v connect.v 3 sub def 
  684.     } if
  685.     qualPos 2 eq
  686.     {    % above the first point
  687.         /connect.v connect.v diamondWidth 1 add sub def
  688.         /p1.h connect.h qualTW 2 div sub def
  689.         /p1.v connect.v 4 add def 
  690.     } if
  691.     qualPos 3 eq
  692.     {    % to the right of the first point
  693.         /connect.h connect.h diamondWidth sub def
  694.         /p1.h connect.h 6 add def
  695.         /p1.v connect.v 3 sub def 
  696.     } if
  697.     qualPos 4 eq
  698.     {    % below the first point
  699.         /connect.v connect.v diamondWidth 0.5 add add def
  700.         /p1.h connect.h qualTW 2 div sub def
  701.         /p1.v connect.v 10 sub def
  702.     } if
  703.     /qualText.h p1.h def
  704.     /qualText.v p1.v def
  705.  
  706.     /lineConnect.h connect.h def
  707.     /lineConnect.v connect.v def
  708.  
  709. % Determine the qualifiers rectangle size
  710.     qualTW 0 ne
  711.     {
  712.         qualPos 1 eq
  713.         {    % to the left of the first class
  714.             /RectRight connect.h def
  715.             /RectLeft qualText.h 5 sub def
  716.             /lineConnect.h RectLeft def
  717.             /RectTop qualText.v 12 add def
  718.             /RectBottom RectTop 16 sub def
  719.         } if
  720.         qualPos 3 eq
  721.         {    % to the right of the first class
  722.             /RectLeft connect.h def
  723.             /RectRight qualText.h qualTW 5 add add def
  724.             /lineConnect.h RectRight def
  725.             /RectTop qualText.v 12 add def
  726.             /RectBottom RectTop 16 sub def
  727.         } if
  728.         qualPos 2 eq
  729.         {    % above the first point
  730.             /RectBottom connect.v def
  731.             /RectTop RectBottom 16 add def
  732.             /lineConnect.v RectTop def
  733.             /RectLeft qualText.h 4 sub def
  734.             /RectRight RectLeft qualTW 9 add add def
  735.         } if
  736.         qualPos 4 eq
  737.         {    % below the first point
  738.             /RectTop connect.v def
  739.             /RectBottom RectTop 16 sub def
  740.             /lineConnect.v RectBottom def
  741.             /RectLeft qualText.h 4 sub def
  742.             /RectRight RectLeft qualTW add 9 add def
  743.         } if
  744.         RectLeft RectTop moveto
  745.         RectRight RectTop lineto
  746.         RectRight RectBottom lineto
  747.         RectLeft RectBottom lineto
  748.         closepath stroke
  749.         newpath
  750.         qualText.h qualText.v moveto
  751.         qualifier show
  752.     } if
  753.  
  754.     /noOfBranches exch def /branchesArray noOfBranches array def /index 0 def
  755.     {
  756.         index noOfBranches eq { exit } if
  757.         /branchMult exch def /branchMultText exch def
  758.         /branchRole exch def /noOfBranchPoints exch def
  759.  
  760.         noOfBranchPoints 0 ne {
  761.             /pntArray noOfBranchPoints 2 mul array def
  762.             /pntIndex 0 def
  763.             {
  764.                 pntIndex noOfBranchPoints 2 mul eq { exit } if
  765.                 pntArray pntIndex 3 -1 roll put
  766.                 /pntIndex pntIndex 1 add def
  767.             } loop
  768.  
  769.             /branchArray 5 array def
  770.              branchArray 0 branchMult put branchArray 1 branchMultText put
  771.             branchArray 2 branchRole put branchArray 3 noOfBranchPoints put
  772.             branchArray 4 pntArray put
  773.          }
  774.          {
  775.              /branchArray 4 array def
  776.             branchArray 0 branchMult put branchArray 1 branchMultText put
  777.             branchArray 2 branchRole put branchArray 3 noOfBranchPoints put
  778.         } ifelse
  779.         branchesArray index branchArray put
  780.         /index index 1 add def
  781.     } loop
  782.     newpath 1 setlinewidth 0 setgray
  783.     /index 0 def
  784.     {
  785.         index noOfStemPoints eq { exit } if
  786.         stemArray index 2 mul 1 add get stemArray index 2 mul get
  787.         index noOfStemPoints 1 sub eq { pop pop lineConnect.h lineConnect.v } if
  788.         index 0 eq { moveto }{ lineto } ifelse
  789.         /index index 1 add def
  790.     } loop
  791.     branchesArray
  792.     {
  793.         /branch exch def /branchMult branch 0 get def
  794.         /branchMultText branch 1 get def /noOfPoints branch 3 get def
  795.         noOfPoints 0 ne {
  796.             /pntArray branch 4 get def
  797.             /index 0 def
  798.             {
  799.                 index noOfPoints eq { exit } if
  800.                 pntArray index 2 mul 1 add get pntArray index 2 mul get
  801.                 index 0 eq { moveto }{ lineto } ifelse
  802.                 /index index 1 add def
  803.             } loop
  804.         } if
  805.     }forall
  806.     stroke
  807.     branchesArray
  808.     {
  809.         /branch exch def
  810.         /branchMult branch 0 get def /branchMultText branch 1 get def
  811.         /branchRole branch 2 get def /noOfPoints branch 3 get def
  812.         noOfPoints 0 ne {
  813.             /pntArray branch 4 get def
  814.             newpath
  815.             /p1.h pntArray 1 get def /p1.v pntArray 0 get def
  816.             /p2.h pntArray 3 get def /p2.v pntArray 2 get def
  817.         }
  818.         {
  819.             newpath
  820.             /p1.h stemArray 1 get def /p1.v stemArray 0 get def
  821.             /p2.h stemArray 3 get def /p2.v stemArray 2 get def
  822.         } ifelse
  823.  
  824.         0 setgray
  825.  
  826.         p1.h p1.v
  827.         branchMult 1 eq {
  828.             % hollow circle
  829.             pointSize 0.5 sub 0 360 arc stroke
  830.             p1.h p1.v
  831.             pointSize 1 sub 0 360 arc 1 setgray fill
  832.         } if
  833.         branchMult 2 eq {
  834.             % filled circle
  835.             pointSize 0.5 sub 0 360 arc gsave stroke grestore 0 setgray fill
  836.         } if
  837.  
  838.         0 setgray
  839.         /roletextwidth branchRole stringwidth pop def
  840.  
  841.         p1.h p2.h eq
  842.         {    p1.v p2.v le
  843.             {    p1.h 5 add    p1.v 4 add }{ p1.h 5 add p1.v 10 sub } ifelse
  844.         }
  845.         { p1.v p2.v eq
  846.             {    p1.h p2.h gt
  847.                 { p1.h roletextwidth 5 add sub p1.v 10 sub }{ p1.h 5 add p1.v 10 sub } ifelse
  848.             }
  849.             {    p1.v p2.v le
  850.                 {    p1.h p2.h gt
  851.                     {    p1.h roletextwidth 5 add sub p1.v 4 add }{    p1.h 5 add p1.v 4 add } ifelse
  852.                 }
  853.                 {    p1.h p2.h gt
  854.                     {    p1.h roletextwidth 5 add add p1.v 0 sub }
  855.                     {    p1.h 5 add p1.v 10 sub } ifelse
  856.                 } ifelse
  857.             } ifelse
  858.         } ifelse
  859.         moveto branchRole show
  860.  
  861.         noOfPoints 0 ne {
  862.             /pntArray branch 4 get def
  863.             newpath
  864.             /p1.h pntArray 1 get def /p1.v pntArray 0 get def
  865.             /p2.h pntArray 3 get def /p2.v pntArray 2 get def
  866.         }
  867.         {
  868.             newpath
  869.             /p1.h stemArray 1 get def /p1.v stemArray 0 get def
  870.             /p2.h stemArray 3 get def /p2.v stemArray 2 get def
  871.         } ifelse
  872.         /multtextwidth branchMultText stringwidth pop def
  873.         0 setgray
  874.  
  875.         p1.h p2.h eq
  876.         { p1.v p2.v le
  877.             {    p1.h multtextwidth 5 add sub p1.v 4 add }
  878.             {    p1.h multtextwidth 5 add sub p1.v 10 sub }     ifelse
  879.         }
  880.         { p1.v p2.v eq
  881.             { p1.h p2.h gt
  882.                 { p1.h multtextwidth 5 add sub p1.v 4 add }{ p1.h 5 add p1.v 4 add } ifelse
  883.             }
  884.             { p1.v p2.v le
  885.                 { p1.h p2.h gt
  886.                     { p1.h multtextwidth 5 add sub p1.v 4 add }{ p1.h 5 add p1.v 4 add } ifelse
  887.                 }
  888.                 { p1.h p2.h gt
  889.                     { p1.h multtextwidth 5 add sub p1.v 10 sub }{ p1.h 5 add p1.v 10 sub } ifelse
  890.                 } ifelse
  891.             } ifelse
  892.         } ifelse
  893.         moveto
  894.         branchMult 3 eq {
  895.             branchMultText show
  896.         }if
  897.  
  898.     }forall
  899.     stroke
  900.  
  901.     0 setgray
  902.     /p1.h stemArray noOfStemPoints 1 sub 2 mul 1 add get def
  903.     /p1.v stemArray noOfStemPoints 1 sub 2 mul get def
  904.     /p2.h stemArray noOfStemPoints 2 sub 2 mul 1 add get def
  905.     /p2.v stemArray noOfStemPoints 2 sub 2 mul get def
  906.     /roletextwidth baseRole stringwidth pop def
  907.  
  908.     p1.h p2.h eq
  909.     { p1.v p2.v le
  910.         { p1.h 5 add p1.v 1 sub qualTW 0 ne { 14 add } if }
  911.         { p1.h 5 add p1.v 1 sub qualTW 0 ne { 14 sub } if } ifelse
  912.     }
  913.     { p1.v p2.v eq
  914.         { p1.h p2.h gt
  915.                 { p1.h roletextwidth 1 sub sub qualTW 0 ne { qualTW 9 add sub } if p1.v 10 sub }
  916.                 { p1.h 1 sub qualTW 0 ne { qualTW 7 add add } if p1.v 10 sub } ifelse
  917.         }
  918.         {    p1.v p2.v le
  919.             {    p1.h p2.h gt
  920.                 { p1.h roletextwidth 5 add sub p1.v 4 add qualTW 0 ne { 14 add } if }
  921.                 { p1.h 6 add p1.v 4 add qualTW 0 ne { 14 add } if } ifelse
  922.             }
  923.             {    p1.h p2.h gt
  924.                 { p1.h roletextwidth 5 add sub p1.v 10 sub qualTW 0 ne { 14 sub } if }
  925.                 { p1.h 6 add p1.v 10 sub qualTW 0 ne { 14 sub } if } ifelse
  926.             } ifelse
  927.         } ifelse
  928.     } ifelse
  929.     moveto baseRole show
  930.  
  931.     newpath
  932.     p1.h p2.h eq
  933.     { p1.v p2.v le
  934.             { p1.h p1.v 3 add qualTW 0 ne { 15 add } if }
  935.             { p1.h p1.v 3 sub qualTW 0 ne { 16 sub } if } ifelse
  936.     }
  937.     { p1.v p2.v eq
  938.             { p1.h p2.h gt
  939.                     { p1.h 2 sub qualTW 0 ne { qualTW 10 add sub } if p1.v }
  940.                     { p1.h 2 add qualTW 0 ne { qualTW 12 add add } if p1.v } ifelse
  941.             }
  942.             { p1.v p2.v le
  943.                     { p1.h p2.h gt
  944.                             { p1.h pointSize 5 add sub p1.v 4 add qualTW 0 ne { 15 add } if }
  945.                             { p1.h 5 add p1.v 4 add qualTW 0 ne { 15 add } if } ifelse
  946.                     }
  947.                     { p1.h p2.h gt
  948.                             { p1.h pointSize 5 add sub p1.v 10 sub qualTW 0 ne { 15 sub } if }
  949.                             { p1.h 5 add p1.v 10 sub qualTW 0 ne { 15 sub } if } ifelse
  950.                     } ifelse
  951.             } ifelse
  952.     } ifelse
  953.     /y exch def
  954.     /x exch def
  955.     x y
  956.     baseMult 1 eq {
  957.         % hollow circle
  958.         pointSize 0.5 sub 0 360 arc stroke
  959.         x y
  960.         pointSize 1 sub 0 360 arc 1 setgray fill
  961.     } if
  962.     baseMult 2 eq {
  963.         % filled circle
  964.         pointSize 0.5 sub 0 360 arc gsave stroke grestore 0 setgray fill
  965.     } if
  966.  
  967.     /multtextwidth baseMultText stringwidth pop def
  968.  
  969.     p1.h p2.h eq
  970.     { p1.v p2.v le
  971.             {    p1.h multtextwidth 5 add sub p1.v 1 sub qualTW 0 ne { 14 add } if }
  972.             {    p1.h multtextwidth 5 add sub p1.v 1 sub qualTW 0 ne { 14 sub } if }     ifelse
  973.     }
  974.     { p1.v p2.v eq
  975.             { p1.h p2.h gt
  976.                     { p1.h multtextwidth 1 sub sub qualTW 0 ne { qualTW 9 add sub } if p1.v 4 add }
  977.                     { p1.h 1 sub qualTW 0 ne { qualTW 7 add add } if p1.v 4 add } ifelse
  978.             }
  979.             { p1.v p2.v le
  980.                     { p1.h p2.h gt
  981.                             { p1.h multtextwidth 5 add sub p1.v 4 add qualTW 0 ne { 14 add } if }
  982.                             { p1.h 5 add p1.v 4 add qualTW 0 ne { 14 add } if } ifelse
  983.                     }
  984.                     { p1.h p2.h gt
  985.                             { p1.h multtextwidth 5 add sub p1.v 10 sub qualTW 0 ne { 14 sub } if }
  986.                             { p1.h 5 add p1.v 10 sub qualTW 0 ne { 14 sub } if } ifelse
  987.                     } ifelse
  988.             } ifelse
  989.     } ifelse
  990.     moveto
  991.     baseMult 3 eq {
  992.         baseMultText show
  993.     } if
  994.  
  995.     newpath 1 setlinewidth
  996.     qualTW 0 ne
  997.     {
  998.         qualPos 1 eq
  999.         {
  1000.             /diax diax qualTW 9 add sub def
  1001.         } if
  1002.         qualPos 2 eq
  1003.         {
  1004.             /diay diay 16 add def
  1005.         } if
  1006.         qualPos 3 eq
  1007.         {
  1008.             /diax diax qualTW 11 add add def
  1009.         } if
  1010.         qualPos 4 eq
  1011.         {
  1012.             /diay diay 16 sub def
  1013.         } if
  1014.     } if
  1015.  
  1016.     diax diamondWidth 2 div sub 0.5 add diay moveto
  1017.  
  1018.     diamondWidth 2 div 1 sub diamondWidth 2 div 1 sub rlineto
  1019.     diamondWidth 2 div 1 sub diamondWidth 2 div 1 sub neg rlineto
  1020.     diamondWidth 2 div 1 sub neg diamondWidth 2 div 1 sub neg rlineto
  1021.     closepath
  1022.     byvalue 0 eq { 1 setgray }{ 0 setgray } ifelse fill
  1023.  
  1024.     newpath 1 setlinewidth 0 setgray
  1025.     diax diamondWidth 2 div sub diay moveto
  1026.  
  1027.     diamondWidth 2 div 0.5 sub diamondWidth 2 div 0.5 sub rlineto
  1028.     diamondWidth 2 div 0.5 sub diamondWidth 2 div 0.5 sub neg rlineto
  1029.     diamondWidth 2 div 0.5 sub neg diamondWidth 2 div 0.5 sub neg rlineto
  1030.     closepath stroke
  1031.  
  1032.  
  1033.     end
  1034. } def
  1035.  
  1036. /arrowdict 15 dict def
  1037. arrowdict begin
  1038. /mtrx matrix def
  1039. end
  1040.  
  1041. /drawArrow %     tailx taily tipx tipy halfthickness halfheadthickness headlength dashed filled drawArrow
  1042. { arrowdict begin
  1043.     /filled exch def
  1044.     /dashed exch def
  1045.     /headlength exch def
  1046.     /halfheadthickness exch 2 div def
  1047.     /halfthickness exch 2 div def
  1048.     /tipy exch def /tipx exch def
  1049.     /taily exch def /tailx exch def
  1050.  
  1051.     /dx tipx tailx sub def
  1052.     /dy tipy taily sub def
  1053.     /arrowlength dx dx mul dy dy mul add sqrt def
  1054.     /angle dy dx atan def
  1055.     /arrowlength arrowlength headlength add def
  1056.     /base arrowlength headlength sub def
  1057.     /savematrix mtrx currentmatrix def
  1058.     tailx taily translate
  1059.     angle rotate
  1060.     base halfthickness neg moveto
  1061.     base halfheadthickness neg lineto
  1062.     arrowlength 0 lineto
  1063.     base halfheadthickness lineto
  1064.     base halfthickness lineto
  1065.     closepath
  1066.     filled true eq { fill }{ gsave 1 setgray fill grestore stroke } ifelse
  1067.     savematrix setmatrix
  1068.     newpath 1 setlinewidth
  1069.     tailx taily translate
  1070.     angle rotate
  1071.     dashed true eq { [3] 0 setdash }if
  1072.     0 0 moveto base 0 lineto stroke
  1073.     dashed true eq { [] 0 setdash }if
  1074.     savematrix setmatrix
  1075.     end
  1076. } def
  1077.  
  1078. /genarrowdict 15 dict def
  1079. genarrowdict begin
  1080. /mtrx matrix def
  1081. end
  1082.  
  1083. /drawGenArrow %     tailx taily tipx tipy halfthickness halfheadthickness headlength dashed filled drawGenArrow
  1084. { genarrowdict begin
  1085.     /filled exch def
  1086.     /dashed exch def
  1087.     /headlength exch def
  1088.     /halfheadthickness exch 2 div def
  1089.     /halfthickness exch 2 div def
  1090.     /tipy exch def /tipx exch def
  1091.     /taily exch def /tailx exch def
  1092.  
  1093.     /dx tipx tailx sub def
  1094.     /dy tipy taily sub def
  1095.     /arrowlength dx dx mul dy dy mul add sqrt halfthickness sub def
  1096.     /angle dy dx atan def
  1097.     /base arrowlength headlength sub def
  1098.     /savematrix mtrx currentmatrix def
  1099.     tailx taily translate
  1100.     angle rotate
  1101.     base halfthickness neg moveto
  1102.     base halfheadthickness neg lineto
  1103.     arrowlength 0 lineto
  1104.     base halfheadthickness lineto
  1105.     base halfthickness lineto
  1106.     closepath
  1107.     filled true eq { fill }{ gsave 1 setgray fill grestore stroke } ifelse
  1108.     savematrix setmatrix
  1109.     newpath 1 setlinewidth
  1110.     tailx taily translate
  1111.     angle rotate
  1112.     dashed true eq { [3] 0 setdash }if
  1113.     0 0 moveto base 0 lineto stroke
  1114.     dashed true eq { [] 0 setdash }if
  1115.     savematrix setmatrix
  1116.     end
  1117. } def
  1118.  
  1119. % [ pointn ... point1 noOfPoints branchRole branchMultText branchMult ] noOfBranches pointn ... point1 noOfPoints baseRole baseMultText baseMult qualPos qualifier name pyramidorientation pyramidx pyramidy omtNotation
  1120. /drawGen
  1121. {
  1122.     50 dict begin
  1123.     Monaco9 setfont
  1124.  
  1125.     /omtNotation exch def
  1126.     /pyry exch def
  1127.     /pyrx exch def
  1128.     /orient exch def
  1129.     /name exch def
  1130.       /noOfStemPoints exch def
  1131.     /stemArray noOfStemPoints 2 mul array def
  1132.     /index 0 def
  1133.     {
  1134.         index noOfStemPoints 2 mul eq { exit } if
  1135.         stemArray index 3 -1 roll put
  1136.         /index index 1 add def
  1137.     } loop
  1138.  
  1139.     /noOfBranches exch def
  1140.     /branchesArray noOfBranches array def
  1141.  
  1142.     /index 0 def
  1143.     {
  1144.         index noOfBranches eq { exit } if
  1145.  
  1146.         /branchMult exch def /branchMultText exch def
  1147.         /branchRole exch def /noOfBranchPoints exch def
  1148.  
  1149.         noOfBranchPoints 0 ne {
  1150.             /pntArray noOfBranchPoints 2 mul array def
  1151.             /pntIndex 0 def
  1152.             {
  1153.                 pntIndex noOfBranchPoints 2 mul eq { exit } if
  1154.                 pntArray pntIndex 3 -1 roll put
  1155.                 /pntIndex pntIndex 1 add def
  1156.             } loop
  1157.  
  1158.             /branchArray 2 array def
  1159.           branchArray 0 noOfBranchPoints put branchArray 1 pntArray put
  1160.         }
  1161.         {
  1162.             /branchArray 1 array def
  1163.           branchArray 0 noOfBranchPoints put
  1164.         } ifelse
  1165.         branchesArray index branchArray put
  1166.         /index index 1 add def
  1167.     } loop
  1168.     newpath 1 setlinewidth 0 setgray
  1169.     /index 0 def
  1170.     {
  1171.         index noOfStemPoints eq { exit } if
  1172.         stemArray index 2 mul 1 add get stemArray index 2 mul get
  1173.         index 0 eq { moveto }{ lineto } ifelse
  1174.         /index index 1 add def
  1175.     } loop
  1176.  
  1177.     branchesArray
  1178.     {
  1179.         /branch exch def
  1180.         /noOfPoints branch 0 get def
  1181.         noOfPoints 0 ne {
  1182.             /pntArray branch 1 get def
  1183.             /index 0 def
  1184.             {
  1185.                 index noOfPoints eq { exit } if
  1186.                 pntArray index 2 mul 1 add get pntArray index 2 mul get
  1187.                 index 0 eq { moveto }{ lineto } ifelse
  1188.                 /index index 1 add def
  1189.             } loop
  1190.         }if
  1191.     }forall
  1192.     stroke
  1193.  
  1194.     newpath
  1195.     pyrx pyry moveto
  1196.  
  1197.     omtNotation 1 eq {
  1198.         orient 0 eq {
  1199.             pyramidWidth 2 div 1.6 sub 0 rlineto
  1200.             pyramidWidth 2 div 1.6 sub neg pyramidWidth 2 div 1.6 sub rlineto
  1201.             pyramidWidth 2 div 1.6 sub neg pyramidWidth 2 div 1.6 sub neg rlineto
  1202.         } if
  1203.         orient 2 eq {
  1204.             0 pyramidWidth 2 div 1.6 sub rlineto
  1205.             pyramidWidth 2 div 1.6 sub neg pyramidWidth 2 div 1.6 sub neg rlineto
  1206.             pyramidWidth 2 div 1.6 sub pyramidWidth 2 div 1.6 sub neg rlineto
  1207.         } if
  1208.         orient 4 eq {
  1209.             pyramidWidth 2 div 1.6 sub neg 0 rlineto
  1210.             pyramidWidth 2 div 1.6 sub pyramidWidth 2 div 1.6 sub neg rlineto
  1211.             pyramidWidth 2 div 1.6 sub pyramidWidth 2 div 1.6 sub rlineto
  1212.         } if
  1213.         orient 6 eq {
  1214.             0 pyramidWidth 2 div 1.6 sub neg rlineto
  1215.             pyramidWidth 2 div 1.6 sub pyramidWidth 2 div 1.6 sub rlineto
  1216.             pyramidWidth 2 div 1.6 sub neg pyramidWidth 2 div 1.6 sub rlineto
  1217.         } if
  1218.         closepath 1 setgray fill
  1219.  
  1220.         newpath 1 setlinewidth 0 setgray
  1221.         pyrx pyry moveto
  1222.  
  1223.         orient 0 eq {
  1224.             pyramidWidth 2 div 0.5 sub 0 rlineto
  1225.             pyramidWidth 2 div 0.5 sub neg pyramidWidth 2 div 0.5 sub rlineto
  1226.             pyramidWidth 2 div 0.5 sub neg pyramidWidth 2 div 0.5 sub neg rlineto
  1227.         } if
  1228.         orient 2 eq {
  1229.             0 pyramidWidth 2 div 0.5 sub rlineto
  1230.             pyramidWidth 2 div 0.5 sub neg pyramidWidth 2 div 0.5 sub neg rlineto
  1231.             pyramidWidth 2 div 0.5 sub pyramidWidth 2 div 0.5 sub neg rlineto
  1232.         } if
  1233.         orient 4 eq {
  1234.             pyramidWidth 2 div 0.5 sub neg 0 rlineto
  1235.             pyramidWidth 2 div 0.5 sub pyramidWidth 2 div 0.5 sub neg rlineto
  1236.             pyramidWidth 2 div 0.5 sub pyramidWidth 2 div 0.5 sub rlineto
  1237.         } if
  1238.         orient 6 eq {
  1239.             0 pyramidWidth 2 div 0.5 sub neg rlineto
  1240.             pyramidWidth 2 div 0.5 sub pyramidWidth 2 div 0.5 sub rlineto
  1241.             pyramidWidth 2 div 0.5 sub neg pyramidWidth 2 div 0.5 sub rlineto
  1242.         } if
  1243.         closepath stroke
  1244.     }
  1245.     {
  1246.         /i noOfStemPoints 2 mul def
  1247.         stemArray i 3 sub get stemArray i 4 sub get stemArray i 1 sub get stemArray i 2 sub get 1 15 20 false false drawGenArrow
  1248.     } ifelse
  1249.     
  1250.     end
  1251. } def
  1252.  
  1253.  
  1254. /drawEventBox        % ulc.x ulc.y height
  1255. {
  1256.     50 dict begin
  1257.  
  1258.     /height exch def /ulcy exch def /ulcx exch def
  1259.  
  1260.     newpath 1 setlinewidth
  1261.     ulcx ulcy moveto eventBoxWidth 0 rlineto 0 height neg rlineto
  1262.     eventBoxWidth neg 0 rlineto closepath
  1263.     gsave stroke grestore
  1264.     1 setgray fill
  1265.     0 setgray fill
  1266.     end
  1267. } def
  1268.  
  1269. /drawEventThread    % ulc.x ulc.y height name
  1270. {
  1271.     50 dict begin
  1272.  
  1273.     /name exch def /height exch def /ulcy exch def /ulcx exch def
  1274.  
  1275.     newpath 1 setlinewidth
  1276.     Monaco10 setfont
  1277.     1 setlinewidth ulcx ulcy moveto 0 height neg rlineto stroke
  1278.     ulcx name stringwidth pop 2 div sub ulcy 10 add moveto name show
  1279.     end
  1280. } def
  1281.  
  1282. /drawEventEvent        % fulcx fulcy flrcx flrcy ulcx ulcy lrcx lrcy name dashed
  1283. {
  1284.     50 dict begin
  1285.  
  1286.     /dashed exch def /name exch def /lrcy exch def /lrcx exch def
  1287.     /ulcy exch def /ulcx exch def
  1288.     /flrcy exch def /flrcx exch def
  1289.     /fulcy exch def /fulcx exch def
  1290.  
  1291.     Monaco9 setfont
  1292.     newpath 1 setlinewidth
  1293.     ulcx ulcy lrcx lrcy 1 5 5 dashed true drawArrow
  1294.  
  1295.     fulcx flrcx gt
  1296.     {    % above to the left of p1
  1297.         /textx fulcx name stringwidth pop 3 add sub def
  1298.         /texty fulcy 2 add def
  1299.     }
  1300.     {    % above to the right of p1
  1301.         /textx fulcx 4 add def
  1302.         /texty fulcy 2 add def
  1303.     }ifelse
  1304.     textx texty moveto
  1305.     name show
  1306.     end
  1307. } def
  1308. /drawSupp        % pointn ... point1 noOfPoints name drawSupp
  1309. {
  1310.     50 dict begin
  1311.  
  1312.     /name exch def
  1313.     /noOfPoints exch def /pntArray noOfPoints 2 mul array def /index 0 def
  1314.     {
  1315.         index noOfPoints 2 mul eq { exit } if
  1316.         pntArray index 3 -1 roll put
  1317.         /index index 1 add def
  1318.     } loop
  1319.  
  1320.     Monaco9 setfont
  1321.     [3] 0 setdash
  1322.     newpath 1 setlinewidth
  1323.     noOfPoints 2 gt {
  1324.         /index 0 def
  1325.         {
  1326.             index noOfPoints 1 sub eq { exit } if
  1327.             /p1.h pntArray index 2 mul 1 add get def
  1328.             /p1.v pntArray index 2 mul get def
  1329.             /p2.h pntArray index 1 add 2 mul 1 add get def
  1330.             /p2.v pntArray index 1 add 2 mul get def
  1331.             p1.h p1.v moveto p2.h p2.v lineto stroke
  1332.             /index index 1 add def
  1333.         } loop
  1334.     } if
  1335.  
  1336.     /p1.h pntArray 1 get def
  1337.     /p1.v pntArray 0 get def
  1338.     /p2.h pntArray 3 get def
  1339.     /p2.v pntArray 2 get def
  1340.     p1.h p2.h eq
  1341.     {
  1342.         p1.v p2.v gt
  1343.         {
  1344.             /p1.v p1.v 5 sub def
  1345.         }
  1346.         {
  1347.             /p1.v p1.v 5 add def
  1348.         }ifelse
  1349.     }
  1350.     {
  1351.         p1.h p2.h gt
  1352.         {
  1353.             /p1.h p1.h 5 sub def
  1354.         }
  1355.         {
  1356.             /p1.h p1.h 5 add def
  1357.         }ifelse
  1358.     } ifelse
  1359.     [] 0 setdash
  1360.     p2.h p2.v p1.h p1.v 1 5 5 true true drawArrow
  1361.  
  1362.     end
  1363. } def
  1364.  
  1365. /fourpops { pop pop pop pop } def
  1366. /drawRoundedBox % ulcx ulcy width height
  1367. {
  1368.     50 dict begin
  1369.  
  1370.     /height exch def /width exch def
  1371.     /ulcy exch def /ulcx exch def
  1372.  
  1373.     /lrcx ulcx width add def /lrcy ulcy height sub def
  1374.  
  1375.     ulcx lrcy 10 add moveto
  1376.     ulcx lrcy lrcx lrcy 5 arcto fourpops
  1377.     lrcx lrcy lrcx ulcy 5 arcto fourpops
  1378.     lrcx ulcy ulcx ulcy 5 arcto fourpops
  1379.     ulcx ulcy ulcx lrcy 5 arcto fourpops
  1380.     closepath
  1381.     gsave 1 setgray fill grestore stroke
  1382.     end
  1383. } def
  1384.  
  1385. /drawStateBox % actionn eventn .. action1 event1 noOfEvents exitlinen exitline1 noOfExitLines dolinen doline1 noOfDoLines entrylinen entryline1 noOfEntryLines name
  1386. {
  1387.     50 dict begin
  1388.  
  1389.     /boxheight 30 def
  1390.     /boxwidth 60 def
  1391.     /name exch def 
  1392.  
  1393. %
  1394. % Get all the entry/ lines and store them in entryLineArray
  1395. %
  1396.     /noOfEntryLines exch def
  1397.     /entryLineWidth 0 def     /entryHeight 0 def
  1398.     noOfEntryLines 0 ne
  1399.     { 
  1400.         /entryLineArray noOfEntryLines array def
  1401.         /entryLineIndex 0 def
  1402.         {
  1403.             entryLineIndex noOfEntryLines eq { exit } if
  1404.             entryLineArray entryLineIndex 3 -1 roll put
  1405.             /entryLineIndex entryLineIndex 1 add def
  1406.         } loop
  1407.         /entryHeight entryLineIndex 12 mul def
  1408.         /rubrikwidth MonacoI9 setfont (entry/ ) stringwidth pop def
  1409.         Monaco9 setfont
  1410.         entryLineArray
  1411.         {
  1412.             stringwidth pop dup rubrikwidth add 16 add
  1413.             entryLineWidth gt { /entryLineWidth exch def }{ pop } ifelse
  1414.         } forall
  1415.     } if
  1416.  
  1417. %
  1418. % Get all the do: lines and store them in doLineArray
  1419. %
  1420.     /noOfDoLines exch def
  1421.     /doLineWidth 0 def     /doHeight 0 def
  1422.     noOfDoLines 0 ne
  1423.     { 
  1424.         /doLineArray noOfDoLines array def
  1425.         /doLineIndex 0 def
  1426.         {
  1427.             doLineIndex noOfDoLines eq { exit } if
  1428.             doLineArray doLineIndex 3 -1 roll put
  1429.             /doLineIndex doLineIndex 1 add def
  1430.         } loop
  1431.         /doHeight doLineIndex 12 mul def
  1432.         /rubrikwidth Monaco9 setfont (do: ) stringwidth pop def
  1433.         doLineArray
  1434.         {
  1435.             stringwidth pop dup rubrikwidth add 16 add
  1436.             doLineWidth gt { /doLineWidth exch def }{ pop } ifelse
  1437.         } forall
  1438.     } if
  1439.  
  1440. %
  1441. % Get all the exit/ lines and store them in exitLineArray
  1442. %
  1443.     /noOfExitLines exch def
  1444.     /exitLineWidth 0 def     /exitHeight 0 def
  1445.     noOfExitLines 0 ne
  1446.     { 
  1447.         /exitLineArray noOfExitLines array def
  1448.         /exitLineIndex 0 def
  1449.         {
  1450.             exitLineIndex noOfExitLines eq { exit } if
  1451.             exitLineArray exitLineIndex 3 -1 roll put
  1452.             /exitLineIndex exitLineIndex 1 add def
  1453.         } loop
  1454.         /exitHeight exitLineIndex 12 mul def
  1455.         /rubrikwidth MonacoI9 setfont (exit/ ) stringwidth pop def
  1456.         Monaco9 setfont
  1457.         exitLineArray
  1458.         {
  1459.             stringwidth pop dup rubrikwidth add 16 add
  1460.             exitLineWidth gt { /exitLineWidth exch def }{ pop } ifelse
  1461.         } forall
  1462.     } if
  1463.  
  1464. %
  1465. % Get all the event/ lines and store each event in the eventsArray
  1466. % Each element of the eventsArray is another array where the first
  1467. % item holds the number of lines (following items)
  1468. %
  1469.     /noOfEvents exch def
  1470.     /eventHeight 0 def
  1471.     noOfEvents 0 ne
  1472.     { 
  1473.         /eventsArray noOfEvents array def
  1474.         /eventIndex 0 def
  1475.         {
  1476.             eventIndex noOfEvents eq { exit } if
  1477.             /noOfEventLines exch def
  1478.             /eventArray noOfEventLines 2 add array def
  1479.             eventArray 0 noOfEventLines put
  1480.             /lineIndex 1 def
  1481.             {
  1482.                 lineIndex noOfEventLines 2 add eq { exit } if
  1483.                 eventArray lineIndex 3 -1 roll put
  1484.                 /lineIndex lineIndex 1 add def
  1485.             } loop
  1486.             eventsArray eventIndex eventArray put
  1487.             /eventIndex eventIndex 1 add def
  1488.         } loop
  1489.  
  1490.         /eventLineWidth 0 def
  1491.  
  1492.         eventsArray
  1493.         {
  1494.             /ar exch def
  1495.             /noOfLines ar 0 get def
  1496.             /eventHeight eventHeight noOfLines add def
  1497.             /rubrikwidth ar noOfLines 1 add get MonacoI9 setfont stringwidth pop def
  1498.          Monaco9 setfont
  1499.             /item noOfLines def
  1500.             {
  1501.                 item 0 eq { exit } if
  1502.                 ar item get Monaco9 setfont stringwidth pop
  1503.                 rubrikwidth add 16 add dup
  1504.                 boxwidth gt { /boxwidth exch def }{ pop } ifelse
  1505.                 /item item 1 sub def
  1506.             } loop
  1507.         } forall
  1508.     /eventHeight eventHeight 10 mul def
  1509.     } if
  1510.  
  1511.     currentpoint /ulcy exch def /ulcx exch def
  1512.     /leftmargin currentpoint pop def /topmargin currentpoint exch pop def
  1513.  
  1514.     Monaco10 setfont
  1515.     name stringwidth pop dup 8 add
  1516.     boxwidth gt { /boxwidth exch def }{ pop } ifelse
  1517.  
  1518.     entryLineWidth boxwidth gt { /boxwidth entryLineWidth def } if
  1519.     doLineWidth boxwidth gt { /boxwidth doLineWidth def } if
  1520.     exitLineWidth boxwidth gt { /boxwidth exitLineWidth def } if
  1521.  
  1522.     30 exitHeight add doHeight add entryHeight add eventHeight add dup
  1523.     boxheight gt { /boxheight exch def }{ pop } ifelse
  1524.  
  1525. % Draw the name of the state
  1526.     Monaco10 setfont
  1527.     ulcx ulcy boxwidth boxheight drawRoundedBox
  1528.     ulcx boxwidth name stringwidth pop sub 2 div add
  1529.     ulcy 18 sub moveto name show
  1530.  
  1531.     /entryIndex 0 def
  1532.     entryHeight 0 ne
  1533.     {
  1534.         /item noOfEntryLines 1 sub def
  1535.         {
  1536.             item -1 eq { exit }if
  1537.             entryLineArray item get
  1538.             /item item 1 sub def
  1539.             ulcx 5 add ulcy 30 sub entryIndex 10 mul sub moveto
  1540.             entryIndex 0 eq { MonacoI9 setfont (entry/ ) show
  1541.                                                                 /leftmargin currentpoint pop ulcx 5 add sub def Monaco9 setfont }
  1542.                                                                 { leftmargin 0 rmoveto } ifelse
  1543.             show
  1544.             /entryIndex entryIndex 1 add def
  1545.         } loop
  1546.     } if
  1547.     Monaco9 setfont
  1548.     /doIndex 0 def
  1549.     doHeight 0 ne
  1550.     {
  1551.         /item noOfDoLines 1 sub def
  1552.         {
  1553.             item -1 eq { exit }if
  1554.             doLineArray item get
  1555.             /item item 1 sub def
  1556.             ulcx 5 add ulcy 30 sub doIndex 10 mul sub entryIndex 10 mul sub moveto
  1557.             doIndex 0 eq { (do: ) show /leftmargin currentpoint pop ulcx 5 add sub def }{ leftmargin 0 rmoveto } ifelse
  1558.             show
  1559.             /doIndex doIndex 1 add def
  1560.         } loop
  1561.     } if
  1562.  
  1563.     /eventIndex 0 def
  1564.     eventHeight 0 ne
  1565.     {
  1566.         /item noOfEvents 1 sub def
  1567.         {
  1568.             item -1 eq { exit }if
  1569.             /ar eventsArray item get def
  1570.             /item item 1 sub def
  1571.             /noOfLines ar 0 get def
  1572.             /lineIndex noOfLines 1 add def
  1573.             {
  1574.                 lineIndex 0 eq { exit } if
  1575.                 ar lineIndex get
  1576.                 ulcx 5 add ulcy 32 sub entryIndex 10 mul sub doIndex 10 mul sub eventIndex 10 mul sub moveto
  1577.                 lineIndex noOfLines 1 add eq
  1578.                 {
  1579.                     MonacoI9 setfont show ( ) show  /leftmargin currentpoint pop ulcx 5 add sub def
  1580.                     ar noOfLines get Monaco9 setfont show
  1581.                     /lineIndex lineIndex 2 sub def
  1582.                 }
  1583.                 {
  1584.                     leftmargin 0 rmoveto show
  1585.                     /lineIndex lineIndex 1 sub def
  1586.                 }ifelse
  1587.                 /eventIndex eventIndex 1 add def
  1588.             } loop
  1589.         } loop
  1590.     } if
  1591.  
  1592.     /exitIndex 0 def
  1593.     exitHeight 0 ne
  1594.     {
  1595.         /item noOfExitLines 1 sub def
  1596.         {
  1597.             item -1 eq { exit }if
  1598.             exitLineArray item get
  1599.             /item item 1 sub def
  1600.             ulcx 5 add ulcy 32 sub entryIndex 10 mul sub doIndex 10 mul sub eventIndex 10 mul sub exitIndex 10 mul sub moveto
  1601.             exitIndex 0 eq { MonacoI9 setfont (exit/ ) show
  1602.             /leftmargin currentpoint pop ulcx 5 add sub def
  1603.             Monaco9 setfont } { leftmargin 0 rmoveto }ifelse
  1604.             show
  1605.             /exitIndex exitIndex 1 add def
  1606.         } loop
  1607.     } if
  1608.     leftmargin boxwidth add topmargin boxheight sub
  1609.     end
  1610. } def
  1611.  
  1612. /drawStateEvent % [ pointn ... point1 ] noOfPoints eventtext
  1613. { 
  1614.     50 dict begin
  1615.     Monaco9 setfont
  1616.  
  1617.     /eventtext exch def
  1618.  
  1619.     /noOfPoints exch def /pntArray noOfPoints 2 mul array def /index 0 def
  1620.     {
  1621.         index noOfPoints 2 mul eq { exit } if
  1622.         pntArray index 3 -1 roll put
  1623.         /index index 1 add def
  1624.     } loop
  1625.  
  1626.     newpath 1 setlinewidth 0 setgray
  1627.     /index 0 def
  1628.     {
  1629.         index noOfPoints eq { exit } if
  1630.         pntArray index 2 mul 1 add get pntArray index 2 mul get
  1631.         index 0 eq { moveto }{ lineto } ifelse
  1632.         /index index 1 add def
  1633.     } loop
  1634.     stroke
  1635.     pntArray noOfPoints 1 sub 2 mul 1 add get pntArray noOfPoints 1 sub 2 mul get
  1636.     pntArray noOfPoints 2 sub 2 mul 1 add get pntArray noOfPoints 2 sub 2 mul get
  1637.  
  1638. %
  1639. % Last line's x and y are on top of the stack
  1640. %
  1641.     /p1.v exch def
  1642.     /p1.h exch def
  1643.     /p2.v exch def
  1644.     /p2.h exch def
  1645.     /width eventtext stringwidth pop def
  1646.  
  1647.     p1.v p2.v eq
  1648.     {
  1649.         /p.v p1.v 7 add def
  1650.         p1.h p2.h lt
  1651.         {
  1652.             /p.h p1.h p2.h p1.h sub 2 div add  width 2 div   sub def
  1653.         }
  1654.         {
  1655.             /p.h p2.h p1.h p2.h sub 2 div add   width 2 div   sub def
  1656.         }ifelse
  1657.     }
  1658.     {
  1659.         p1.h p2.h eq
  1660.         {
  1661.             /p.h p1.h 5 add def
  1662.             p1.v p2.v ge
  1663.             {
  1664.                 /p.v p1.v p2.v p1.v sub 2 div add def
  1665.             }
  1666.             {
  1667.                 /p.v p2.v p1.v p2.v sub 2 div add def
  1668.             }ifelse
  1669.         }
  1670.         {
  1671.             p1.v p2.v ge
  1672.             {
  1673.                 /p.v  p1.v p2.v p1.v sub 2 div add def
  1674.             }
  1675.             {
  1676.                 /p.v  p2.v p1.v p2.v sub 2 div add def
  1677.             }ifelse
  1678.  
  1679.             p1.h p2.h lt
  1680.             {
  1681.                 /p.h  p1.h p2.h p1.h sub 2 div width 2 div sub add def
  1682.             }
  1683.             {
  1684.                 /p.h  p2.h p1.h p2.h sub 2 div width 2 div sub add def
  1685.             }ifelse
  1686.         }ifelse
  1687.     }ifelse
  1688.  
  1689.     MonacoI9 setfont
  1690.     p.h p.v moveto eventtext show
  1691.  
  1692.     pntArray 1 get pntArray 0 get
  1693.     /p1.v exch def /p1.h exch def
  1694.     pntArray 3 get pntArray 2 get
  1695.     /p2.v exch def /p2.h exch def
  1696.  
  1697.     p1.h p2.h eq
  1698.     {
  1699.         p1.v p2.v gt
  1700.         {
  1701.             /p1.v p1.v 5 sub def
  1702.         }
  1703.         {
  1704.             /p1.v p1.v 5 add def
  1705.         }ifelse
  1706.     }
  1707.     {
  1708.         p1.h p2.h gt
  1709.         {
  1710.             /p1.h p1.h 5 sub def
  1711.         }
  1712.         {
  1713.             /p1.h p1.h 5 add def
  1714.         }ifelse
  1715.     } ifelse
  1716.  p2.h p2.v p1.h p1.v 1 5 5 false true drawArrow
  1717.  
  1718.     end
  1719. } def
  1720.  
  1721. /drawNote %  linen line1 noOfLines width height drawNote
  1722. {
  1723.     50 dict begin
  1724.  
  1725.     /boxheight exch def
  1726.     /boxwidth exch def
  1727.  
  1728. %
  1729. % Get all the lines and store them in lineArray
  1730. %
  1731.     Monaco9 setfont
  1732.  
  1733.     /noOfLines exch def
  1734.     noOfLines 0 ne
  1735.     { 
  1736.         /lineArray noOfLines array def
  1737.         /lineIndex 0 def
  1738.         {
  1739.             lineIndex noOfLines eq { exit } if
  1740.             lineArray lineIndex 3 -1 roll put
  1741.             /lineIndex lineIndex 1 add def
  1742.         } loop
  1743.     } if
  1744.  
  1745.     currentpoint /ulcy exch def /ulcx exch def
  1746.  
  1747.     % compute max width of text lines
  1748.     /maxwidth 0 def
  1749.     noOfLines 0 ne
  1750.     {
  1751.         /item noOfLines 1 sub def
  1752.         {
  1753.             item -1 eq { exit }if
  1754.             lineArray item get
  1755.             stringwidth pop
  1756.             /width exch def
  1757.             maxwidth width lt { /maxwidth width def }if
  1758.             /item item 1 sub def
  1759.         } loop
  1760.     } if
  1761.     boxwidth maxwidth lt { /boxwidth maxwidth def }if
  1762.  
  1763.     % draw the box
  1764.     currentpoint boxwidth 0 rlineto
  1765.     0 boxheight neg rlineto
  1766.     boxwidth neg 0 rlineto closepath stroke
  1767.  
  1768.     % set clipping region
  1769.     gsave
  1770.     newpath
  1771.     ulcx 5 add ulcy moveto
  1772.     boxwidth 10 sub 0 rlineto
  1773.     0 boxheight neg rlineto
  1774.     boxwidth 10 sub neg 0 rlineto closepath clip
  1775.  
  1776.     /index 0 def
  1777.     noOfLines 0 ne
  1778.     {
  1779.         /item noOfLines 1 sub def
  1780.         {
  1781.             item -1 eq { exit }if
  1782.             lineArray item get
  1783.             /item item 1 sub def
  1784.             ulcx 5 add ulcy 12 sub index 10 mul sub moveto
  1785.             show
  1786.             /index index 1 add def
  1787.         } loop
  1788.     } if
  1789.     grestore
  1790.     newpath
  1791.     ulcx boxwidth add 14 sub ulcy moveto
  1792.     14 0 rlineto
  1793.     0 -10 rlineto closepath gsave stroke grestore 0.5 setgray fill
  1794.  
  1795.     2 setlinejoin
  1796.     ulcx boxwidth add 14 sub ulcy moveto
  1797.  
  1798.     ulcx boxwidth add 12 sub ulcy 3 sub        % x1, y1
  1799.     ulcx boxwidth add 11 sub ulcy 5 sub        % x2, y2
  1800.     ulcx boxwidth add 12 sub ulcy 10 sub    % x3, y3
  1801.     curveto
  1802.  
  1803.     ulcx boxwidth add 9 sub ulcy 8 sub    % x1, y1
  1804.     ulcx boxwidth add 4 sub ulcy 8 sub    % x2, y2
  1805.     ulcx boxwidth add ulcy 10 sub        % x3, y3
  1806.     curveto
  1807.  
  1808.     closepath gsave 1 setgray fill grestore 0 setgray stroke
  1809.     0 setlinejoin
  1810.  
  1811.     ulcx boxwidth add ulcy boxheight sub
  1812.  
  1813.     end
  1814. } def
  1815.  
  1816.  
  1817. /drawInitialState %  diameter x y drawInitialState
  1818. {
  1819.     50 dict begin
  1820.  
  1821.     /y exch def
  1822.     /x exch def
  1823.     /circleSize exch def
  1824.     newpath
  1825.     x circleSize 2 div add
  1826.     y circleSize 2 div sub
  1827.     circleSize 2 div
  1828.     0 360 arc
  1829.     closepath gsave stroke grestore fill
  1830.  
  1831.     end
  1832. } def
  1833.  
  1834. /drawFinalState %  diameter x y drawFinalState
  1835. {
  1836.     50 dict begin
  1837.  
  1838.     /y exch def
  1839.     /x exch def
  1840.     /circleSize exch def
  1841.     newpath
  1842.     x circleSize 2 div add
  1843.     y circleSize 2 div sub
  1844.     circleSize 2 div
  1845.     0 360 arc
  1846.     closepath stroke
  1847.     newpath
  1848.     x circleSize 2 div add
  1849.     y circleSize 2 div sub
  1850.     circleSize 2 div 3 sub
  1851.     0 360 arc
  1852.     closepath fill
  1853.  
  1854.     end
  1855. } def
  1856.  
  1857. /drawActor %  name
  1858. {
  1859.     50 dict begin
  1860.  
  1861.     /actorheight 75 def
  1862.     /actorwidth 30 def
  1863.     /name exch def 
  1864.  
  1865.     currentpoint /ulcy exch def /ulcx exch def
  1866.     /leftmargin currentpoint pop def /topmargin currentpoint exch pop def
  1867.  
  1868.     Monaco10 setfont
  1869.     /namewidth name stringwidth pop def
  1870.  
  1871.     /nameleft ulcx actorwidth 2 div add namewidth 2 div sub def
  1872.  
  1873. % Draw the name of the actor
  1874.     nameleft ulcy actorheight sub 5 add moveto name show
  1875.  
  1876. % Draw the stickman
  1877.     
  1878. % First head
  1879.     newpath
  1880.     ulcx actorwidth 2 div add    % x
  1881.     ulcy 10 sub                    % y
  1882.     10                            % r
  1883.     0 360 arc stroke
  1884.  
  1885. % then body
  1886.     newpath
  1887.     ulcx actorwidth 2 div add ulcy 20 sub moveto
  1888.     ulcx actorwidth 2 div add ulcy 20 sub actorheight 45 sub sub lineto
  1889.  
  1890. % then the legs
  1891.     actorwidth 2 div 1 sub neg -10 rlineto
  1892.     actorwidth 2 div 10 rmoveto
  1893.     actorwidth 2 div -10 rlineto
  1894.  
  1895. % then the arms
  1896.     ulcx ulcy 35 sub moveto
  1897.     actorwidth 2 div 5 rlineto
  1898.     actorwidth 2 div 1 sub -5 rlineto
  1899.     stroke
  1900.  
  1901.     leftmargin actorwidth add topmargin actorheight sub
  1902.     end
  1903. } def
  1904.  
  1905. /drawPackage %  name
  1906. {
  1907.     50 dict begin
  1908.  
  1909.     /packageheight 50 def
  1910.     /packagewidth 80 def
  1911.     /name exch def 
  1912.  
  1913.     currentpoint /ulcy exch def /ulcx exch def
  1914.     /leftmargin currentpoint pop def /topmargin currentpoint exch pop def
  1915.  
  1916.     Monaco10 setfont
  1917.     /namewidth name stringwidth pop def
  1918.  
  1919.     namewidth 6 add packagewidth gt { /packagewidth namewidth 6 add def } if
  1920.  
  1921.     /nameleft ulcx packagewidth 2 div add namewidth 2 div sub def
  1922.  
  1923.     ulcx ulcy 10 sub moveto
  1924.     ulcx packagewidth add ulcy 10 sub lineto
  1925.     ulcx packagewidth add ulcy packageheight sub 1 add lineto
  1926.     ulcx ulcy packageheight sub 1 add lineto
  1927.     closepath stroke
  1928.     newpath
  1929.     ulcx ulcy moveto
  1930.     ulcx 30 add ulcy lineto
  1931.     ulcx 30 add ulcy 10 sub lineto
  1932.     ulcx ulcy 10 sub lineto
  1933.     closepath stroke
  1934.  
  1935.     newpath
  1936.     nameleft ulcy 25 sub moveto
  1937.     name show
  1938.  
  1939.     leftmargin packagewidth add topmargin packageheight sub
  1940.     end
  1941. } def
  1942.  
  1943. /drawUseCase %  name
  1944. {
  1945.     50 dict begin
  1946.  
  1947.     /usecaseheight 50 def
  1948.     /usecasewidth 90 def
  1949.     /name exch def 
  1950.  
  1951.     currentpoint /ulcy exch def /ulcx exch def
  1952.     /leftmargin currentpoint pop def /topmargin currentpoint exch pop def
  1953.  
  1954.     Monaco10 setfont
  1955.     /namewidth name stringwidth pop def
  1956.  
  1957.     namewidth 6 add usecasewidth gt { /usecasewidth namewidth 6 add def } if
  1958.  
  1959.     /nameleft ulcx usecasewidth 2 div add namewidth 2 div sub def
  1960.  
  1961.     newpath
  1962.     ulcx usecasewidth 2 div add ulcy usecaseheight 2 div sub translate
  1963.     usecasewidth usecaseheight div 1 scale
  1964.     0 0 usecaseheight 2 div 0 360 arc
  1965.     usecaseheight usecasewidth div 1 scale
  1966.     ulcx usecasewidth 2 div add neg ulcy usecaseheight 2 div sub neg translate
  1967.     stroke
  1968.  
  1969.     newpath
  1970.     nameleft ulcy 25 sub moveto
  1971.     name show
  1972.  
  1973.     leftmargin usecasewidth add topmargin usecaseheight sub
  1974.     end
  1975. } def
  1976.  
  1977. /drawCommunicates    % pointn ... point1 noOfPoints name
  1978. {
  1979.     50 dict begin
  1980.     Monaco9 setfont
  1981.  
  1982.     /name exch def
  1983.     /noOfPoints exch def /pntArray noOfPoints 2 mul array def /index 0 def
  1984.     {
  1985.         index noOfPoints 2 mul eq { exit } if
  1986.         pntArray index 3 -1 roll put
  1987.         /index index 1 add def
  1988.     } loop
  1989.  
  1990.     newpath 1 setlinewidth 0 setgray
  1991.     /index 0 def
  1992.     {
  1993.         index noOfPoints eq { exit } if
  1994.         pntArray index 2 mul 1 add get pntArray index 2 mul get
  1995. %        index noOfPoints 1 sub eq { pop pop lineConnect.h lineConnect.v } if
  1996.         index 0 eq { moveto }{ lineto } ifelse
  1997.         /index index 1 add def
  1998.     } loop
  1999.     stroke
  2000.     end
  2001. } def
  2002.  
  2003. newpath 1 setlinewidth
  2004.  
  2005.